Private Declare Auto Function GetPrivateProfileString Lib "kernel32.dll" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As StringBuilder, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer
Public Function Read(ByVal fileName As String, _
ByVal section As String, _
ByVal key As String, _
Optional ByVal defaultString As String = "", _
Optional ByVal raiseError As Boolean = False) As String
Dim Result As New StringBuilder(255)
Dim ResultLength As Integer
ResultLength = GetPrivateProfileString(section, key, defaultString, Result, Result.Length, fileName)
If ResultLength = 0 AndAlso raiseError Then
End If
Return Result.ToString.Substring(0, ResultLength)
End Function
Sub Main()
Try
Console.WriteLine(Read("C:\Users\User_2\Desktop\prova.ini", "Sezione1", "Chiave1", "", True))
Catch ex As Exception
Console.WriteLine(ex.ToString)
Finally
Console.ReadKey()
End Try
End Sub